home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / biz / swood / fw_mef.lha / FW_MEf / Meinfügen.fwrexx < prev    next >
Text File  |  1997-04-08  |  4KB  |  190 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. R='0A'X
  4. Dre=0
  5. Sei=0
  6. Address='FinalW'
  7. Options results
  8. STATUS PORTNAME
  9. FW=result
  10. address=FW
  11. SIGNAL ON BREAK_C
  12. SIGNAL ON SYNTAX
  13. 'ShowMessage 2 0 "Mehrfach Einfügen V1.5 - 08.04.97" "    Neu: Das Shareware-Paket" "Info im Mehrfach-Einfügen-Guide" "(-:" "Ok" ":-)"'
  14. GetDocItemPrefs Decimal
  15. Punkt=Result
  16. If Punkt="Comma" then DocItemPrefs Decimal Period
  17. GraphicTool
  18. nr=1
  19. CurrentObject
  20. ObjectId=Result
  21. IF ObjectId=0 THEN;do
  22. 'ShowMessage 1 1 "Makro: Mehrfach Einfügen" "Kein Grafikobjekt ausgewählt..." "" "Okay" "" ""'
  23. Call BREAK_C
  24. End
  25. Objekt.0=nr;Objekt.nr=ObjectID
  26. FirstObject Selected
  27. ID=result
  28. Call Zaehlen
  29. Do While 1
  30. NextObject ID Selected
  31. ID=result
  32. If ID=0 then Leave
  33. Call Zaehlen
  34. End
  35. If Objekt.0=1 then;do
  36. gruppe=false
  37. end
  38. else gruppe=true
  39. Do a=2 to Objekt.0
  40. SelectObject Objekt.a MULTIPLE
  41. End
  42. SelectObject Objekt.1 MULTIPLE
  43. STATUS View
  44. Zoom=result
  45. STATUS Pages
  46. Seiten=result
  47. STATUS Page
  48. Seite=result
  49. If Gruppe=true then Group
  50. Copy
  51. IF RC=0 THEN;do
  52. CurrentObject
  53. ObjectID=result
  54. GetObjectCoords ObjectID
  55. Parse var result Seite x y w h
  56. wl=w
  57. hl=h
  58. GetObjectRotation ObjectID
  59. Dreh=result
  60. GetObjectType ObjectID
  61. Typ=result
  62. If Typ=2|Typ=3 then;do
  63. If Seite~=1 then;do
  64. 'ShowMessage 1 1 "FW hat Probleme mit Linien außerhalb" "der Seite 1... " "" "Okay" "" ""'
  65. Call BREAK_C
  66. End
  67. End
  68. If Gruppe=true then Ungroup
  69. 'ShowMessage 1 0 "Wie soll die Bildschirmausgabe erfolgen?" "" "" "Normal" "Speed" ""'
  70. ba=result
  71. IF ba=2 THEN;DO
  72. status WINDOW
  73. parse VAR result links oben width height minwidth minheight maxwidth maxheight
  74. sizewindow minwidth minheight
  75. End
  76. Do While 1
  77. Result="ß"
  78. RequestText '"Mehrfach Einfügen" "Anzahl der Kopien" ""'
  79. Anzahl=Result
  80. If Anzahl="ß" then call Ende1
  81. If Anzahl=""|Anzahl=0 then call Ende
  82. If Datatype(Anzahl,'W')=1 then leave
  83. else call oops
  84. End
  85. Do while 1
  86. Result="ß"
  87. RequestText '"Mehrfach Einfügen" "Horizontale Verschiebung in cm" ""'
  88. Hor=Result
  89. If Hor="ß" then call Ende1
  90. If Hor="" then Hor=0
  91. If Datatype(Hor,'N')=1 then leave
  92. else call oops1
  93. End
  94. Do while 1
  95. Result="ß"
  96. RequestText '"Mehrfach Einfügen" "Vertikale Verschiebung in cm" ""'
  97. Ver=Result
  98. If Ver="ß" then call Ende1
  99. If Ver="" then Ver=0
  100. If Datatype(Ver,'N')=1 then leave
  101. else call oops1
  102. End
  103. If Typ~=2&Typ~=3 then;do
  104. Do while 1
  105. Result="ß"
  106. RequestText '"Mehrfach Einfügen" "Drehung in Grad" ""'
  107. Dre=Result
  108. If Dre="ß" then call Ende1
  109. If Dre="" then Dre=0
  110. If Datatype(Dre,'W')=1 then leave
  111. else call oops
  112. End
  113. Do While 1
  114. Result="ß"
  115. RequestText '"Mehrfach Einfügen" "Auf welche Seite? 0=dieselbe Seite" ""'
  116. Sei=Result
  117. If Sei="ß" then call Ende1
  118. If Sei=""|Sei=0 then Sei=Seite
  119. If Datatype(Sei,'W')=1 then leave
  120. else call oops
  121. End
  122. end
  123. s=Sei-Seiten
  124. Do a=1 to s
  125. InsertPageBreak
  126. End
  127. If ba=2 then View 20
  128. Do i=1 TO Anzahl
  129. Paste
  130. CurrentObject
  131. ObjectID=Result
  132. a=x+(Hor*i)
  133. b=y+(Ver*i)
  134. Winkel=Dreh+Dre*i
  135. If Typ=2|Typ=3 then;do
  136. w=wl+(Hor*i)
  137. h=hl+(Ver*i)
  138. Sei=Seite
  139. End
  140. SetObjectCoords ObjectID Sei a b w h
  141. SetObjectRotation ObjectID Winkel
  142. If Gruppe=true then Ungroup
  143. End
  144. End
  145. Redraw
  146. Call WH
  147. 'ShowMessage 2 1 "Vielen Dank für die Benutzung." "© Heiko Schröder" "http://yi.com/home/SchroederHeiko" "@-`-" "Bitte" ":-))"'
  148. Exit
  149. ENDE:
  150. Call WH
  151. 'ShowMessage 1 1 "Falsche Anzahl an Kopien..." "A B B R U C H" "" "Okay" "" ""'
  152. EXIT
  153. ENDE1:
  154. Call WH
  155. 'ShowMessage 1 1 "Sie haben abgebrochen..." "© Heiko Schröder" "http://yi.com/home/SchroederHeiko" "Okay" "" ""'
  156. EXIT
  157. SYNTAX:
  158. Call WH
  159. 'ShowMessage 1 1 "Es ist ein Fehler aufgetreten." "Nähere Info in Datei «Ram:Fehler«" "" "Was?" "Gibts nicht!" "Sofort melden"'
  160. address "REXX"
  161. Open("F","Ram:Fehler","W")
  162. writeln("F","ACHTUNG! FW_MEf V1.4 Makro-Fehler"||R)
  163. writeln("F",'Fehler in Zeile' SIGL ':' ERRORTEXT(RC)||R)
  164. writeln("F",'Bitte informieren Sie den Autor unter s93324@fh-telekom-leipzig.de')
  165. Close("F")
  166. EXIT
  167. BREAK_C:
  168. Call WH
  169. 'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""'
  170. EXIT
  171. WH:
  172. If ba=2 then;do
  173. GoToPage Sei
  174. View Zoom
  175. sizewindow width height
  176. End
  177. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  178. Return
  179. Zaehlen:
  180. If ID~=Objekt.1 then;do
  181. nr=nr+1
  182. Objekt.0=nr;Objekt.nr=ID
  183. End
  184. Return
  185. oops:
  186. 'ShowMessage 1 1 "Falsche Eingabe!" "Bitte ganzzahlige Eingabe!" "" "Okay" "" ""'
  187. return
  188. oops1:
  189. 'ShowMessage 1 1 "Falsche Eingabe!" "Bitte numerische Eingabe mit (.) !" "" "Okay" "" ""'
  190. return